www.gusucode.com > 深度学习(asp)网址导航 v4.0.1 > 深度学习(asp)网址导航 v4.0.1\code\admin\Site\sort_Update.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
projectRootPath = "../../" '相对当前应用程序根的位置
%>
<!-- #include file ="../include/checkPurview.asp"-->
<!--#include file="../../ConnDB.asp"-->
<!--#include file="../../include/Function.Common.asp"-->
<!-- #include file="../include/Function.Manage.Config.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta name="robots" content="noindex,nofollow" />
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>类别修改</title>
<link href="../themes/<%=theme_Path%>/main.css" rel="stylesheet" type="text/css" />
<script language="javascript">
function form1_onsubmit()
{
if (document.form1.ClassName.value=="")
{
window.alert("请输入分类栏目名称");
return false;
}
}
</script>
</head>
<body id="bodyBg1">
<br /> <a href="sort_Manage.asp">类别管理</a> | <a href="sort_Add.asp">类别添加</a>
<hr color="#0099FF" size="1" />
<br />
<dl class="manageContent">
<dt>类别修改</dt>
<dd>
<br />
<%
if Request.Form("ClassName") <> "" then
ID_Class=Request.Form("ID_Class")
ClassName=Request.Form("ClassName")
OrderID=Request.Form("OrderID")
Readme=Request.Form("Readme")
View=Request.Form("View")
ParentID=Request.Form("ParentID")
Set RsClassUpdate=Server.CreateObject("Adodb.Recordset")
SqlU="Select * from deep_WebSort where fid_Sort="& ID_Class
RsClassUpdate.open SqlU,conn,3,2
RsClassUpdate("fname")=ClassName
RsClassUpdate("forderID")=OrderID
RsClassUpdate("ftip")=Readme
RsClassUpdate("fplace")=View
RsClassUpdate("fparentID")=ParentID
RsClassUpdate.update
RsClassUpdate.close
Set RsClassUpdate=Nothing
Response.Write("<p align='center'>网址类别：["& ClassName &"] 更改成功</p>")
else
%>
<%
ID_Class=Request.QueryString("id")
sql="Select * from deep_WebSort where fid_Sort="& ID_Class
Set rsClass=conn.execute(sql)
%>
<form id="form1" name="form1" method="post" action="" onSubmit="return form1_onsubmit()">
<table width="95%" class="tableBoderForm">
<tr>
<td>分类栏目名称：</td>
<td><input type="text" name="ClassName" value=<%=rsClass("fname")%> /></td>
</tr>
<tr>
<td>所属类别：</td>
<td>
<select name="ParentID">
<option value="0" <%if rsClass("fparentID")=0 then%>selected="selected"<%end if%> >根目录</option>
<%
Set rsClassList = Conn.Execute("select fid_Sort,fparentID,fname from deep_WebSort where fParentID=0 order by forderID")
if rsClassList.Eof and rsClassList.Bof then
Response.Write("<p>暂时没有栏目！！！</p>")
else
Do while (Not rsClassList.Eof)
'Option_write= "<option value="& rsClassList(0) '&">"& rsClassList(2) & "</option>"
'if rsClass("fparentID")=rsClassList(0) then
'Option_write=Option_write & " selected='selected' "
'end if
'Option_write=Option_write & ">"& rsClassList(2) & "</option>"
%>
<option value="<%=rsClassList("fid_Sort")%>" <%if rsClassList("fid_Sort")=rsClass("fparentID") then%>selected="selected"<%end if%> ><%=rsClassList("fname")%></option>
<%
'Response.Write Option_write
Response.Write getSubList(rsClassList("fid_Sort"),rsClass("fparentID"),0,"select fid_Sort,fparentID,fname from deep_WebSort")
rsClassList.MoveNext
Loop
end if
rsClassList.close
Set rsClassList=Nothing
%>
</select>
</td>
</tr>
<tr>
<td>排序ID：</td>
<td><input name="OrderID" type="text" value=<%=rsClass("forderID")%> /></td>
</tr>
<tr>
<td>显示设定</td>
<td><select name="View" id="View">
<option value="0" <%if (rsClass("fplace")=0) then%>selected="selected"<%end if%> >首页不显示</option>
<option value="1" <%if (rsClass("fplace")=1) then%>selected="selected"<%end if%> >首页“酷站大全”栏目中显示</option>
<option value="2" <%if (rsClass("fplace")=2) then%>selected="selected"<%end if%> >首页左侧栏目中显示</option>
</select>
</td>
</tr>
<tr>
<td>栏目简介：<br />
(分类页中做为此页meta描述description)</td>
<td><textarea name="Readme" cols="70" rows="6" ><%=rsClass("ftip")%></textarea></td>
</tr>
<tr>
<td><input type="hidden" name="ID_Class" value="<%=ID_Class%>" /></td>
<td><input type="submit" name="Submit" value="修改" />
<input type="reset" name="Reset" value="重置" /></td>
</tr>
</table>
</form>
<%
rsClass.close
Set rsClass=Nothing
end if
%>
<br />
</dd>
</dl>
<br />
</body>
</html>
<%
Call CloseConnDB()
%>